home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / do1003.zip / EVALUATE.SCR < prev    next >
Text File  |  1991-12-31  |  2KB  |  113 lines
  1. * SCRIPT: Evaluate Archived Files
  2. /SET CD Y
  3. * --------------------------------------------------------------
  4. * Set Directories
  5. /SET Dir1 C:\YAM
  6. /SET Dir2 C:\XTALK\FIL
  7. /SET WorkDir C:\WORK\EVALUATE
  8. /SET Dir0 ""
  9. * --------------------------------------------------------------
  10. :TOP
  11. .clr
  12.  
  13. /SET Default "[Directory]"
  14.     »bo«  Choose Directory  »#«
  15.  
  16.     »ye«1»gray«.»cy«  YAM
  17.     »ye«2»gray«.»cy«  XTALK
  18.     »ye«0»gray«.»cy«  [Enter Directory]
  19.     »ma«I»gray«.»cy«  Interactive Mode
  20.     »re«X»gray«.»gr«  eXit
  21.  
  22. /GOTOC "   »bo«Which Directory? »#«" 120IX
  23. :1
  24. /SET Directory %Dir1
  25. /GOTO GotoDir
  26. :2
  27. /SET Directory %Dir2
  28. /GOTO GotoDir
  29. :0
  30. /SET Default %Dir0
  31. /GETS Dir0 Default "  Enter Directory: "
  32. /SET Directory %Dir0
  33. /GOTO GotoDir
  34. :I
  35. .clr
  36.  
  37. »ye«Enter »c 14 1« /EXIT »ye« to return to the menu»#«
  38.  
  39. /INTERACTIVE
  40. /GOTO TOP
  41. :X
  42. /GOTO END
  43. :GotoDir
  44. /CD %Directory
  45. :CDError
  46. .bell
  47.  
  48. Unable to find %Directory!
  49.  
  50. .pg
  51. /GOTO TOP
  52. :CDOK
  53. »go 1 24«SELECT FILE
  54. /DIR
  55. /IF %FileName NE "" TOP
  56. .clr
  57. »bo«  Selected File %FileName  »#«
  58. /CD %WorkDir
  59. :CDERROR
  60. .bell
  61.  
  62. Unable to change to work directory
  63. .pg
  64. /GOTO END
  65. :CDOK
  66. /IF %FileName LK "*.ZIP" ARJ
  67. !PKUNZIP %FileName
  68. !RECOM %FileName
  69. /GOTO CHECK
  70. :ARJ
  71. /IF %FileName LK "*.ARJ" LZH
  72. !arj e %FileName
  73. /goto CHECK
  74. :LZH
  75. /IF %FileName LK "*.LZH" ARC
  76. !lha e %FileName
  77. /goto CHECK
  78. :ARC
  79. /IF %FileName LK "*.ARC" EXE
  80. !pkxarc %FileName
  81. /goto CHECK
  82. :EXE
  83. /IF %FileName LK "*.EXE" OOPS
  84. !copy %FileName
  85. /goto CHECK
  86. :OOPS
  87. .bell clr go 5 10
  88.  
  89. Unsupported Extension (%FileName)
  90.  
  91. .pg -24
  92. /GOTO TOP
  93. :CHECK
  94. /COMMENT
  95. !scan %WorkDir /NOMEM
  96. .pg
  97. !list
  98. .clr
  99.  
  100. /GOTOC "»bo«    Delete Files (Y/N)? »#«" YN
  101. :Y
  102. /SET CD Y
  103. !del *.*
  104. /GOTO TOP
  105. :N
  106. /SET CD N
  107. /GOTO TOP
  108. :END
  109. /IF %CD EQ Y CDERROR
  110. /CD %Directory
  111. :CDOK
  112. :CDERROR
  113.